body/head

Reset

next

next

next

Drag slider to animate.

G = (0, 2)
r = 1 (slider from -5 to 5)
B = (9, 2)
A = (0, 2)
c = Circle(A, r)
f = Line(A, B)
q = Line(G, f)
g = OrthogonalLine(A, f)
C = Intersect(c, g, 2)
uu = 0 (slider from 0 to 100, step 1)
n = 4 (slider from 1 to 10, step 0.5)
N_1: (x(C) + ((((2 * π) * n) * r) * uu / 100), y(C))
n_1: x = x(N_1)
t_1 = Circle(N_1, r)
O_1 = Intersect(t_1, n_1, 2)
Q_1 = Rotate(O_1, (-(45°)), N_1)
P_1 = Rotate(Q_1, (-(((n * uu / 100) * 360°))), N_1)
θ = Angle(P_1, N_1, Q_1)
e = Circle(A, (n * r))
D = Intersect(e, g, 1)
a = Line(D, q)
tt = 0 (slider from 0 to 100, step 1)
I: (x(D) + ((((2 * π) * n) * r) * (100 - tt) / 100), y(D))
c_1 = Circle(I, (n * r))
b = OrthogonalLine(I, a)
K = Intersect(c_1, b, 2)
K' = Rotate(K, (-(((2 * π) * tt / 100))), I)
h_1 = Ray(I, K')
u = Vector(I, K')
i_1 = Segment(I, K')
e_1 = Circle(I, r)
O = Intersect(e_1, i_1, 1)
v = Vector(I, O)
g_1 = Translate(e_1, Vector[u + v])
L = Intersect(g_1, h_1, 2)
M = Midpoint(L, K')
modecurl: 0
modebase: 1
t = 0 (slider from 0 to 360, step 1)
modeunfurlroll: 0
p_1 = Circle(D, ((n * r) * 0.7))
A' = Rotate(A, (-(t°)), D)
i = Ray(D, A')
C_1, F_1 = Intersect(p_1, g)
d = Circle(C, r)
h = Circle(D, (n * r))
α = Angle(A', D, A)
k = Circle(D, C)
E = Intersect(k, i, 1)
p = Circle(E, A')
rotations: (((n + 1) * t / 360) * modebase) + ((uu / 100 * n) * (modeunfurlroll + modecurl)) + (tt / 100 * modecurl)
A'' = Rotate(A', (-((n * t°))), E)
β = Angle(A'', E, A')
j = Segment(E, A'')
K_2 = Rotate(A'', 45°, E)
γ = Angle(A', C, K_2)
J = Rotate(A'', (-(45°)), E)
δ = Angle(J, C, A')
l = Segment(K_2, J)
F = Mirror(K_2, E)
m = Segment(F, J)
s = Circle(G, ((2 * π) * n))
H = Intersect(s, q, 2)
d_1 = CircleArc(I, K', K)
f_1 = Segment(G, K)
R = Rotate(K', 45° - θ, M)
ζ = Angle(K', M, R)
Q = Rotate(R, 270°, M)
N = Mirror(Q, M)
S = Mirror(R, M)
P = (-3.64434021791846, -4.801144803840527)
T = (-2.803230212108026, -4.801144803840527)
U = (-1.6256762039734183, 0.8040122748802232)
j_1 = OrthogonalLine(U, i)
V = Point(j_1)
W = (-0.04438939304980223, 0.43392387232363117)
k_1 = Circle(F_1, ((n * r) * 0.1))
Z = Intersect(k_1, j_1, 2)
A_1, B_1 = Intersect(k_1, j_1)
D_1 = Intersect(p_1, k_1, 1)
E_1 = Intersect(p_1, k_1, 2)
p' = Translate(p, (0, 0))
q_1 = Translate(g_1, (0, 0))
G_1 = (-39.67122471801881, -39.25733726780162)
H_1 = (98.21307880316886, -37.894844150003316)
I_1 = (97.66808155604954, 28.59481999855374)
J_1 = (-38.581230223780175, 29.27606655745289)
q1, g_2, h_2, i_2, j_2 = Polygon(G_1, H_1, I_1, J_1)
h' = Translate(h, (0, 0))
modeunfurl: 0
ss = 0 (slider from 0 to 100, step 1)
K_1: (x(D) + ((((2 * π) * n) * r) * ss / 100), y(D))
l_1: x = x(K_1)
r_1 = Circle(K_1, (n * r))
L_1 = Intersect(r_1, l_1, 1)
M_1 = Rotate(L_1, ((2 * π) * ss / 100), K_1)
m_1 = Segment(A, L_1)
s_1 = CircleArc(K_1, M_1, L_1)
text2: "mode = " + modebase + "," + modeunfurl + "," + modeunfurlroll + "," + modecurl + ""
c_2 = Translate(t_1, (0, 0))
η = Angle(Q_1, N_1, O_1)
R_1 = Rotate(P_1, 90°, N_1)
ι = Angle(P_1, N_1, R_1)
S_1 = Mirror(R_1, N_1)
h'_1 = Translate(h, (0, 0))
rollrot: (uu / 100 * n)
rollcurl: tt / 100
text1: "Rotations = " + (LaTeX[rotations]) + ""
temp = Mod(5, 3)
ε: Angle[K', I, K] + θ
text3: "body:head = " + n + ":1"
T_1 = (-11.023311669213818, 1.4430236706478077)